(rmail-summary-mark-deleted): Recache summary.

diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index 79bb8bc2ef344b78587945c74e5dfb386b3aaae3..cc25f3de98cfb228521597b55b7fbeadd4673d26 100644 (file)
--- a/lisp/mail/rmailsum.el
+++ b/lisp/mail/rmailsum.el
@@ -714,7 +714,10 @@ a negative argument means to delete and move forward."
            (if (looking-at "D")
                (progn (delete-char 1) (insert " ")))
          (delete-char 1)
-         (insert "D"))))
+         (insert "D"))
+       ;; Register a new summary line.
+       (with-current-buffer rmail-buffer
+         (aset rmail-summary-vector (1- n) (rmail-create-summary-line n)))))
   (beginning-of-line))
 
 (defun rmail-summary-mark-undeleted (n)